home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1069 < prev    next >
Encoding:
Text File  |  1994-01-25  |  892 b   |  29 lines
  1. /textopf false def
  2. /curtextmtx{}def
  3. /otw .25 def
  4. /msf{dup/curtextmtx xdf makefont setfont}bdf
  5. /makesetfont/msf load def
  6. /curtextheight{.707104 .707104 curtextmtx dtransform
  7.  dup mul exch dup mul add sqrt}bdf
  8. /ta2{ 
  9. tempstr 2 index gsave exec grestore 
  10. cwidth cheight rmoveto 
  11. 4 index eq{5 index 5 index rmoveto}if 
  12. 2 index 2 index rmoveto 
  13. }bdf
  14. /ta{exch systemdict/cshow known
  15. {{/cheight xdf/cwidth xdf tempstr 0 2 index put ta2}exch cshow} 
  16. {{tempstr 0 2 index put tempstr stringwidth/cheight xdf/cwidth xdf ta2}forall} 
  17. ifelse 6{pop}repeat}bdf
  18. /sts{/textopf currentoverprint def vc setoverprint
  19. /ts{awidthshow}def exec textopf setoverprint}bdf
  20. /stol{/xt currentlinewidth def 
  21.  setlinewidth vc newpath 
  22.  /ts{{false charpath stroke}ta}def exec 
  23.  xt setlinewidth}bdf 
  24.  
  25. /strk{/textopf currentoverprint def vc setoverprint
  26.  /ts{{false charpath stroke}ta}def exec 
  27.  textopf setoverprint
  28.  }bdf